CAADate_AfterPapalReform_Date <-
function(Year, Month, Day){
.Call("CAADate_AfterPapalReform_Date", Year, Month, Day)
}
